(init_alloc_once): Set gc_cons_threshold from Lisp obj size.

diff --git a/src/alloc.c b/src/alloc.c
index 9e2e8d406d70f74b2aac6f178b0d5359f165e9ef..9d7a5dc4066b9114b16a7fb57c0467d60b131499 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2428,7 +2428,7 @@ init_alloc_once ()
   gcprolist = 0;
   staticidx = 0;
   consing_since_gc = 0;
-  gc_cons_threshold = 300000;
+  gc_cons_threshold = 100000 * sizeof (Lisp_Object);
 #ifdef VIRT_ADDR_VARIES
   malloc_sbrk_unused = 1<<22;  /* A large number */
   malloc_sbrk_used = 100000;   /* as reasonable as any number */